Option Explicit
Dim pdf As PdfXpress
Private Sub Command1_Click()
    pdf.Initialize
    
    Dim doc As New PdfDocument
    doc.SetParentControl pdf
    doc.OpenDocument "document.pdf", ""
    Dim pageNumber As Long
    Dim extractOptions As ExtractImageOptions
    
    For pageNumber = 0 To doc.DocumentPageCount - 1
        Dim imageCount As Long
        imageCount = doc.ExtractImages(pageNumber, extractOptions)
        
        Dim imageIndex As Integer
        For imageIndex = 0 To imageCount - 1
            Dim image As New PdfImage
            Set image = doc.GetExtractedImage(pageNumber, imageIndex)
                        
            'work with the image data here, e.g., save to disk...
        Next imageIndex
    Next pageNumber
End Sub